home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / comm1 / lcall111.lha / callerid1.rexx < prev    next >
OS/2 REXX Batch file  |  1996-01-15  |  2KB  |  88 lines
  1. /* For Comparing CallerID to User Data Number   */
  2. /*           CALLERID Version 1.11              */
  3. /* This program written by Gerald Affeldt.      */
  4. /* Copy righted 15 Jan 1996. All rights reserved*/
  5.  
  6. options results
  7.  
  8. sendfile 'doors:callerid/Verify'
  9.  
  10. Caller = 'doors:callerid/caller' /*Path to callerID log file from TrapDoor*/
  11. if open(idfile,CALLER,read) = 0 then exit
  12.  
  13. do i = 1 to 3
  14.    id1 = readln(idfile)
  15.    end
  16.  
  17. id2 = right(id1,7)
  18.  
  19. close idfile
  20.  
  21. callers = 'bbs:text/logs/callers'
  22.   if exists(callers) then do
  23.   open(log,callers,append)
  24.   end ; else open(log,callers,write)
  25.  
  26. call nameid
  27.  
  28. if right(id2,1) = P then call blocked
  29. if right(id2,1) = O then call outarea
  30. if right(id2,1) = E then call errorid
  31.  
  32. getuser 29 ; bbsno = result
  33. bb1 = compress(bbsno,'-')
  34. bb2 = right(bb1,7)
  35.  
  36. if compare(id2,bb2) = 0 then call good
  37. else call bad
  38.  
  39. exit
  40.  
  41. blocked:
  42.  
  43.  sendfile 'doors:callerid/blocked'
  44.  writeln(log,'\c1CallerID Blocked')
  45.  close(log)
  46.  exit
  47. return
  48.  
  49. outarea:
  50.  
  51.  sendfile 'doors:callerid/error'
  52.  writeln(log,'\c6CallerID Out of Area')
  53.  close(log)
  54.  exit
  55. return
  56.  
  57. errorid:
  58.  
  59.  sendfile 'doors:callerid/error'
  60.  writeln(log,'\c6CallerID Error')
  61.  close(log)
  62.  exit
  63. return
  64.  
  65. good:
  66.  
  67.  writeln(log,'\c2CallerID Matches BBS Records')
  68.  sendfile 'doors:callerid/confirmed'
  69.  close(log)
  70.  exit
  71. return
  72.  
  73. bad:
  74.  
  75.  writeln(log,'\c1***** CALLERID MISMATCH *****')
  76.  writeln(log,'\c3Records Show Number As \c2'bb2)
  77.  sendfile 'doors:callerid/bad'
  78.  close(log)
  79.  exit
  80. return
  81.  
  82. nameid:
  83.  
  84.  getuser 40 ; idnum = result
  85.  getuser 1  ; alias = result
  86.  writeln(log,'\c3Verification On \c7'alias',\c3 ID# \c7'idnum)
  87. return
  88.